
(define cc (map make-constant '(1 2 3 2 4 2 5 2 6)))

(for-each structure-print cc)

(for-each structure-print (constant-set/indices cc))

(constant-set-find cc 4)		; => <constant>

